(build-mail-abbrevs): Pass a recursivep argument in recursive call.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index b1657aad24eed7d74bccba7e1d64f8e598bf107c..ec7ba01b2a23e5be1a7c5583c4d5988ecdb225a3 100644 (file)
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -202,7 +202,8 @@ no aliases, which is represented by this being a table with no entries.)")
                  (end-of-line)
                  (build-mail-abbrevs
                   (substitute-in-file-name
-                   (buffer-substring (match-beginning 1) (match-end 1)))))
+                   (buffer-substring (match-beginning 1) (match-end 1)))
+                  t))
              (re-search-forward "[ \t]+\\([^ \t\n]+\\)")
              (let* ((name (buffer-substring
                            (match-beginning 1) (match-end 1)))